home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
MUR-DOOR.ZIP
/
MUR-DOOR.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-08-18
|
9KB
|
600 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
;------------------------------------------------------------------------------
Log "MUR^DOOR^Version^1.o^Entered^Normally!", 0
If (Exist(PPEPath() + "MUR-DOOR.CFG")) Goto LABEL001
PrintLn "@CLS@"
PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cc@X04onfig @X0Cf@X04ile!"
PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
PrintLn ""
PrintLn ""
Wait
End
:LABEL001
FOpen 1, PPEPath() + "MUR-DOOR.CFG", 0, 2
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FClose 1
STRING033 = "@X09 " + STRING001 + " " + "@X07 - " + STRING002
STRING034 = "@X31 " + STRING001 + " " + "@X07 - " + STRING002
STRING035 = "@X09 " + STRING003 + " " + "@X07 - " + STRING004
STRING036 = "@X31 " + STRING003 + " " + "@X07 - " + STRING004
STRING037 = "@X09 " + STRING005 + " " + "@X07 - " + STRING006
STRING038 = "@X31 " + STRING005 + " " + "@X07 - " + STRING006
STRING039 = "@X09 " + STRING007 + " " + "@X07 - " + STRING008
STRING040 = "@X31 " + STRING007 + " " + "@X07 - " + STRING008
STRING041 = "@X09 " + STRING009 + " " + "@X07 - " + STRING010
STRING042 = "@X31 " + STRING009 + " " + "@X07 - " + STRING010
STRING043 = "@X09 " + STRING011 + " " + "@X07 - " + STRING012
STRING044 = "@X31 " + STRING011 + " " + "@X07 - " + STRING012
STRING045 = "@X09 " + STRING013 + " " + "@X07 - " + STRING014
STRING046 = "@X31 " + STRING013 + " " + "@X07 - " + STRING014
STRING047 = "@X09 " + STRING015 + " " + "@X07 - " + STRING016
STRING048 = "@X31 " + STRING015 + " " + "@X07 - " + STRING016
STRING049 = "@X09 " + STRING017 + " " + "@X07 - " + STRING018
STRING050 = "@X31 " + STRING017 + " " + "@X07 - " + STRING018
STRING051 = "@X09 " + STRING019 + " " + "@X07 - " + STRING020
STRING052 = "@X31 " + STRING019 + " " + "@X07 - " + STRING020
STRING053 = "@X09 " + STRING021 + " " + "@X07 - " + STRING022
STRING054 = "@X31 " + STRING021 + " " + "@X07 - " + STRING022
STRING055 = "@X09 " + STRING023 + " " + "@X07 - " + STRING024
STRING056 = "@X31 " + STRING023 + " " + "@X07 - " + STRING024
STRING057 = "@X09 " + STRING025 + " " + "@X07 - " + STRING026
STRING058 = "@X31 " + STRING025 + " " + "@X07 - " + STRING026
STRING059 = "@X09 " + STRING027 + " " + "@X07 - " + STRING028
STRING060 = "@X31 " + STRING027 + " " + "@X07 - " + STRING028
STRING061 = "@X09 " + STRING029 + " " + "@X07 - " + STRING030
STRING062 = "@X31 " + STRING029 + " " + "@X07 - " + STRING030
STRING063 = "@X09 " + STRING031 + " " + "@X07 - " + STRING032
STRING064 = "@X31 " + STRING031 + " " + "@X07 - " + STRING032
STRING065 = "@X08| @X31 QUIT @X07 - Well obviously this is the exit..!"
STRING066 = "@X08| @X09QUIT @X07- Well obviously this is the exit..!"
If (Exist(PPEPath() + "MUR-DOOR.PCB")) Goto LABEL002
PrintLn "@CLS@"
PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cg@X04rafixs @X0Cf@X04ile!"
PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
PrintLn ""
PrintLn ""
Wait
End
:LABEL002
PrintLn "@POFF@"
Cls
DispFile PPEPath() + "MUR-DOOR.PCB", 0
AnsiPos 3, 5
Print STRING033
AnsiPos 3, 6
Print STRING035
AnsiPos 3, 7
Print STRING037
AnsiPos 3, 8
Print STRING039
AnsiPos 3, 9
Print STRING041
AnsiPos 3, 10
Print STRING043
AnsiPos 3, 11
Print STRING045
AnsiPos 3, 12
Print STRING047
AnsiPos 3, 13
Print STRING049
AnsiPos 3, 14
Print STRING051
AnsiPos 3, 15
Print STRING053
AnsiPos 3, 16
Print STRING055
AnsiPos 3, 17
Print STRING057
AnsiPos 3, 18
Print STRING059
AnsiPos 3, 19
Print STRING061
AnsiPos 3, 20
Print STRING063
AnsiPos 1, 21
Print STRING066
:LABEL003
AnsiPos 1, 21
Print STRING066
AnsiPos 3, 5
Print STRING034
AnsiPos 3, 6
Print STRING035
:LABEL004
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL035
If (STRING067 == "DOWN") Goto LABEL005
If (STRING067 == Chr(13)) Goto LABEL037
Goto LABEL004
:LABEL005
AnsiPos 3, 5
Print STRING033
AnsiPos 3, 6
Print STRING036
AnsiPos 3, 7
Print STRING037
:LABEL006
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL003
If (STRING067 == "DOWN") Goto LABEL007
If (STRING067 == Chr(13)) Goto LABEL038
Goto LABEL006
:LABEL007
AnsiPos 3, 6
Print STRING035
AnsiPos 3, 7
Print STRING038
AnsiPos 3, 8
Print STRING039
:LABEL008
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL005
If (STRING067 == "DOWN") Goto LABEL009
If (STRING067 == Chr(13)) Goto LABEL039
Goto LABEL008
:LABEL009
AnsiPos 3, 7
Print STRING037
AnsiPos 3, 8
Print STRING040
AnsiPos 3, 9
Print STRING041
:LABEL010
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL007
If (STRING067 == "DOWN") Goto LABEL011
If (STRING067 == Chr(13)) Goto LABEL040
Goto LABEL010
:LABEL011
AnsiPos 3, 8
Print STRING039
AnsiPos 3, 9
Print STRING042
AnsiPos 3, 10
Print STRING043
:LABEL012
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL009
If (STRING067 == "DOWN") Goto LABEL013
If (STRING067 == Chr(13)) Goto LABEL041
Goto LABEL012
:LABEL013
AnsiPos 3, 9
Print STRING041
AnsiPos 3, 10
Print STRING044
AnsiPos 3, 11
Print STRING045
:LABEL014
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL011
If (STRING067 == "DOWN") Goto LABEL015
If (STRING067 == Chr(13)) Goto LABEL042
Goto LABEL014
:LABEL015
AnsiPos 3, 10
Print STRING043
AnsiPos 3, 11
Print STRING046
AnsiPos 3, 12
Print STRING047
:LABEL016
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL013
If (STRING067 == "DOWN") Goto LABEL017
If (STRING067 == Chr(13)) Goto LABEL043
Goto LABEL016
:LABEL017
AnsiPos 3, 11
Print STRING045
AnsiPos 3, 12
Print STRING048
AnsiPos 3, 13
Print STRING049
:LABEL018
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL015
If (STRING067 == "DOWN") Goto LABEL019
If (STRING067 == Chr(13)) Goto LABEL044
Goto LABEL018
:LABEL019
AnsiPos 3, 12
Print STRING047
AnsiPos 3, 13
Print STRING050
AnsiPos 3, 14
Print STRING051
:LABEL020
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL017
If (STRING067 == "DOWN") Goto LABEL021
If (STRING067 == Chr(13)) Goto LABEL045
Goto LABEL020
:LABEL021
AnsiPos 3, 13
Print STRING049
AnsiPos 3, 14
Print STRING052
AnsiPos 3, 15
Print STRING053
:LABEL022
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL019
If (STRING067 == "DOWN") Goto LABEL023
If (STRING067 == Chr(13)) Goto LABEL046
Goto LABEL022
:LABEL023
AnsiPos 3, 14
Print STRING051
AnsiPos 3, 15
Print STRING054
AnsiPos 3, 16
Print STRING055
:LABEL024
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL021
If (STRING067 == "DOWN") Goto LABEL025
If (STRING067 == Chr(13)) Goto LABEL047
Goto LABEL024
:LABEL025
AnsiPos 3, 15
Print STRING053
AnsiPos 3, 16
Print STRING056
AnsiPos 3, 17
Print STRING057
:LABEL026
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL023
If (STRING067 == "DOWN") Goto LABEL027
If (STRING067 == Chr(13)) Goto LABEL048
Goto LABEL026
:LABEL027
AnsiPos 3, 16
Print STRING055
AnsiPos 3, 17
Print STRING058
AnsiPos 3, 18
Print STRING059
:LABEL028
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL025
If (STRING067 == "DOWN") Goto LABEL029
If (STRING067 == Chr(13)) Goto LABEL049
Goto LABEL028
:LABEL029
AnsiPos 3, 17
Print STRING057
AnsiPos 3, 18
Print STRING060
AnsiPos 3, 19
Print STRING061
:LABEL030
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL027
If (STRING067 == "DOWN") Goto LABEL031
If (STRING067 == Chr(13)) Goto LABEL050
Goto LABEL030
:LABEL031
AnsiPos 3, 18
Print STRING059
AnsiPos 3, 19
Print STRING062
AnsiPos 3, 20
Print STRING063
:LABEL032
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL029
If (STRING067 == "DOWN") Goto LABEL033
If (STRING067 == Chr(13)) Goto LABEL051
Goto LABEL032
:LABEL033
AnsiPos 3, 19
Print STRING061
AnsiPos 3, 20
Print STRING064
AnsiPos 1, 21
Print STRING066
:LABEL034
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL031
If (STRING067 == "DOWN") Goto LABEL035
If (STRING067 == Chr(13)) Goto LABEL052
Goto LABEL034
:LABEL035
AnsiPos 3, 5
Print STRING033
AnsiPos 3, 20
Print STRING063
AnsiPos 1, 21
Print STRING065
:LABEL036
STRING067 = Inkey()
If (STRING067 == "UP") Goto LABEL033
If (STRING067 == "DOWN") Goto LABEL003
If (STRING067 == Chr(13)) Goto LABEL053
Goto LABEL036
:LABEL037
STRING068 = STRING001
Goto LABEL054
:LABEL038
STRING068 = STRING003
Goto LABEL054
:LABEL039
STRING068 = STRING005
Goto LABEL054
:LABEL040
STRING068 = STRING007
Goto LABEL054
:LABEL041
STRING068 = STRING009
Goto LABEL054
:LABEL042
STRING068 = STRING011
Goto LABEL054
:LABEL043
STRING068 = STRING013
Goto LABEL054
:LABEL044
STRING068 = STRING015
Goto LABEL054
:LABEL045
STRING068 = STRING017
Goto LABEL054
:LABEL046
STRING068 = STRING019
Goto LABEL054
:LABEL047
STRING068 = STRING021
Goto LABEL054
:LABEL048
STRING068 = STRING023
Goto LABEL054
:LABEL049
STRING068 = STRING025
Goto LABEL054
:LABEL050
STRING068 = STRING027
Goto LABEL054
:LABEL051
STRING068 = STRING029
Goto LABEL054
:LABEL052
STRING068 = STRING031
Goto LABEL054
:LABEL053
STRING068 = "quit"
:LABEL054
PrintLn "@CLS@@POFF@"
INTEGER001 = 0
:LABEL055
INTEGER001 = INTEGER001 + 1
AnsiPos 34, 12
PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03nocide^@X0BM@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03ocide^@X0B@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03cide@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03id@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X0F] "
Delay 2
AnsiPos 34, 12
PrintLn "@X0F [@X03id@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03cide@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03ocide^@X0B@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03nocide^@X0BM@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
Delay 1
AnsiPos 34, 12
PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
Delay 1
If (INTEGER001 == 2) Goto LABEL056
Goto LABEL055
:LABEL056
If (STRING068 == "quit") Goto LABEL057
If (STRING068 == "NONE") Goto LABEL057
If (STRING068 == "none") Goto LABEL057
KbdStuff STRING068 + Chr(13)
:LABEL057
Log "MUR-DOOR Exited Normally..", 0
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 2 Wait
; 92 Goto
; 70 Let
; 68 Print
; 27 PrintLn
; 57 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 32 FGet
; 2 Log
; 13 Delay
; 1 KbdStuff
; 81 AnsiPos
;
;
; ■ Functions used :
;
; 136 +
; 55 ==
; 18 Chr()
; 17 Inkey()
; 2 PCBDat()
; 4 PPEPath()
; 2 ReadLine()
; 2 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : d
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------